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BINARY TAPE SPLICER ASR33/75A 

Pg£ . us Pr pgjarc Library Write-up DECUS No. 8-281 4- 

SPECIFICATIONS: 1. PAL BIN 

2. LENGTH 200-377 (OCTAL) 

3. INPUT/OUTPUT ASR33 TELETYPE OR 

75A HIGH SPEED UNIT 

4. START AT 200 

IF BIT LI IS SET, THE HIGH SPEED UNIT IS 
SELECTED; IF BIT 11 IS ZERO , THE TELETYPE 

5. OPERATION IS FROM CONSOLE, USING SWITCH 

REGISTER AND "CONT" SWITCH 

ABSTRACT: THIS UTILITY PROGRAM PUNCHES A LENGTH OF LEADER 

TAPE AND HALTS. 

IT THEN TRANSCRIBES BINARY TAPES AS THEY ARE FED 
IN, WITHOUT INTERRUPTION ON THE OUTPUT TAPE. EACH 
INPUT TAPE IS CHECKED AGAINST ITS CHECKSUM TO 
GUARD AGAINST READ ERRORS. 

IT FINISHES BY PUNCHING A NEW CHECKSUM AND A 
LENGTH OF TRAILER TAPE. 

SPLICED TAPES CAN BE READ INTO MEMORY USING TH^ 
BINARY LOADER. 

OPERATING INSTRUCTIONS 

LOAD THE SPLICER INTO CORE MEMORY 200-377 USING THE BINARY LOADER 
LOAD ADDRESS 200 

SELECT INPUT/OUTPUT SYSTEM BY MEANS OF OPTION ON SWITCH REGISTER 
BIT 11 = O ASR33 TELETYPE 
BIT 11= 1 75A HIGH SPEED UNIT 

PRESS START 

A LENGTH OF CODE 200 LEADER IS PUNCHED 
COMPUTER HALTS 

BEED IN CODE 200 LEADER OF FIRST BINARY TAPE TO BE SPLICED 
PRESS CONTINUE 

BINARY TAPE IS TRANSCRIBED 

COMPUTER HALTS (See ERROR STOP if computer fails to halt) 


FEED IN SUBSEQUENT BINARY TAPES AS ABOVE 
PRESS CONTINUE 












WHEN ALL TAPES HAVE BEEN TRANSCRIBED, CLEAR SWITCH REGISTER AND 
PRESS CONTINUE 

A NEW CHECKSUM AND A LENGTH OF CODE 200 TRAILER ARE PUNCHED 
COMPUTER HALTS 


ERROR STOP: 

IF A READ ERROR OCCURS ON ONE OF THE INPUT TAPES, THE 
COMPUTER WILL LOOP AT 277. SOKRY, YOU MUST START OVER. 
RETURN TO STEP ONE. 


> 
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PALD 

♦OUT-StP 

* 

*IN-S:SPLC 
* 

♦OPT-T 


0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0210 
021 1 
0212 
0213 
0214 


0215 

6012 

FAST# 

6012 

021 6 

7200 

CLA 


0217 

6026 

6026 

0220 

1374 

TAD 

CREED 

0221 

3356 

DCA 

READ 

0222 

1373 

TAD 

C PUNCH 

0223 

3357 

DCA 

WRITE 

0224 

1350 

FORM# 

TAD M2l 

0225 

3336 

DCA 

CNTR 

0226 

1372 

TAD 

C 200 

0227 

4757 

JMS 

I WRITE 

0230 

2336 

ISZ 

CNTR 

0231 

522 6 

JMP 

.-3 

0232 

7402 

HLT 



/WHICH INPUT/OUTPUT SYST? 
/75 A 

/INITIAL PUNCH 
/SET I/O TO ASR 233 

/GO MAKE LEADER 
/RRB 

/PLS# INITIAL PUNCH 
/SET I/O TO 75 A 

/GO PUNCH SOME LEADER 


/BINARY TAPE SPLICER# ASR 33 / 75 A 
*200 

3354 START# DCA CHEX /CLEAR CHECKSUM 
3353 DCA TCHEX 

7604 LAS 

0377 AND Cl 

7640 SZA CLA 

5215 JMP FAST 

6032 SLOW# KCC 
6046 TLS 

1376 TAD CBOARD 

3356 DCA READ 

1375 TAD (TYPE 

3357 DCA WRITE 

5224 JMP FORM 


0233 7201 

0234 3352 

0235 7040 

0236 3360 

0237 7040 

0240 3361 

0241 4756 

0242 3355 

0243 1355 

0244 1350 

0245 7650 

0246 5264 

0247 3352 

0250 1360 

0251 7710 

0252 5260 

0253 1360 

0254 1353 

0255 3353 

0256 1360 

0257 4757 


RESTRT# CLA I AC 

DCA FLAG /SET FLAG TO "NO INPUT YET" STA 

CMA 

DCA BUF /SET BUF EMPTY 

CMA 

DCA BUF+1 


NEXT#JMS I READ 
DCA STOR 
TAD STOR 
TAD M200 
SNA CLA 
JMP OUT 
DCA FLAG 
TAD BUF 
SPA CLA 
JMP .+6 
TAD BUF 
TAD TCHEX 
DCA TCHEX 
TAD BUF 
JMS I WRITE 


/GO READ A NUMBER 
/STORE IT 

/IS IT LEADER-TRAILER 


/YES# DON’T PUNCH IT 

/SO# SET FLAG TO B INPUTSTATE 

/CHECK FOR GOOD STUFF IN BUGF 


/PUNCH A GOOD CHAR 









0260 

1361 

TAD BUF+1 


0261 

3360 

DCA BUF 


0262 

1355 

TAD STOR 


0263 

5240 

JMP NEXT-1 


0264 

1352 

OUT, TAD FLAG 

/IS FLAG SET? 

0265 

7640 

SZA CLA 


0266 

5241 

JMP NEXT 

/NO, FETCH THE NEXT CHAR 

0267 

13 60 

TAD BUF 


0270 

7106 

CLL RTL 


0271 

7006 

RTL 


0272 

7006 

RTL 


0273 

1361 

TAD BUF+1 


0274 

7041 

CMA IAC 


0275 

1353 

TAD TCHEX 


0276 

7640 

SZA CLA 


0277 

5277 

JMP .+0 

/READ ERROR ON CURRENT INPUT TAPE 

0300 

7 402 

HLT 


0301 

1354 

TAD CHEX 


0302 

1353 

TAD TCHEX 


0303 

3354 

DCA CHEX 


0304 

3353 

DCA TCHEX 


0305 

7604 

LAS 

/ANY MORE? 

0306 

7650 

SNA CLA 


0307 

5311 

JMP CHEK 

/NO, GO PUNCH CHECKSUM 

0310 

5233 

JMP RESTRT 


031 1 

1354 

CHEK, TAD CHEX 

/GET 2 MOST SIGNIFICANT OCTAL DIG 

0312 

71 12 

CLL RTR 

/OF CHECKSUM 

0313 

7012 

RTR 


0314 

7012 

RTR 


0315 

0371 

AND (77 


0316 

4757 

JMS I WRITE 

/PUNCH THEM 

0317 

1354 

TAD CHEX 

/GET THE REST 

0320 

0371 

AND (77 


0321 

4757 

JMS I WRITE 


0 322 

5224 

JMP FORM 

/GO MAKE TRAILER 

0323 

0000 

BOARD, 0 

/LOW SPEED READER 

0324 

6031 

KSF 


0325 

5324 

JMP .-1 


0326 

603 6 

KRB 


0327 

5723 

JMP I BOARD 


0330 

0000 

TYPE, 0 

/LOW-SPEED PUNCH 

0331 

6041 

TSF 


0332 

5331 

JMP .-1 


0333 

6046 

TLS 


0334 

7200 

CLA 


0335 

5730 

JMP I TYPE 




CNTR=• 


0336 

0000 

REED, 0 

/HIGH SPEED READER 

0337 

6014 

601 4 

/RFC 

0340 

601 1 

6011 

/RSF 

0341 

5340 

JMP .-1 


0342 

6012 

6012 

/RRB 

0 3 43 

5736 

JMP I REED 
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0344 

0345 

0346 

0347 


0350 

0351 

0352 
0353 
0354 
0355 
, 0356 
0357 
0360 
0361 
0371 
0372 
0373 
0374 
0375 
0376 
0377 

BOARD 

FAST 

OUT 

SLOW 

WRITE 


0000 PUNCH* 0 
6021 6021 
5345 JMP •-1 
602 6 6026 


/high speed punch 

/PSF 

/PLS 


7600 M200* 7600 

5744 JMP I PUNCH 

0000 FLAG* 0 
0000 TCHEX* 0 
0000 CHEX* 0 
0000 STOR* 0 
0000 READ* 0 
0000 WRITE* 0 
0000 BUF* 0| 

0000 0 
0077 
0200 
0344 
0336 
0330 
0323 
0001 


/CLA 


/CHECKSUM FOR CURRENT 
/CHECKSUM FOR NEW TAPE 


INPUT TAPE 


/READER POINTER 
/PUNCH POINTER 


0323 BUF 
0215 FLAG 
0264 PUNCH 
0206 START 
0357 


0360 CHEK 
03 52 FORM 
0344 READ 
0200 STOR 


0311 CHEX 
0224 M200 
0356 REED 
0355 TCHEX 


0354 CNTR 
0350 NEXT 
0336 RESTRT 
0353 TYPE 


0336 

0241 

0233 

0330 


5 




















